Ohio COVID-19 Vaccine Rollout

Ohio COVID Vaccine Rollout

Source: John Hopkins Uni.

### State Data
rm(list=ls())
source("../DATA/movavg.R")
db <- db <- dbConnect(RSQLite::SQLite(),dbname= "../COVID-19-DB/NYTimes.sqlite3")
df <- dbGetQuery(db,"select * from usvaccine")
df <- df[order(df$Date),]
df <- subset(df,Province_State =="Ohio" )
df$Date <- as.Date(df$Date,format="%Y-%m-%d")

buckeye <- df %>% select(Date,Doses_admin) %>% na.omit() %>% 
  group_by(Date) %>% summarise(Admin = sum(Doses_admin))

doses_admin_total

p0 <- buckeye %>% ggplot() + geom_line(aes(x=Date,y=Admin,fill="red")) +
scale_y_continuous(labels=comma) +
labs(title="doses_admin_total")

## Warning: Ignoring unknown aesthetics: fill

ggplotly(p0)

p1 <- df %>% filter(Vaccine_Type =="All") %>%
  ggplot() + geom_line(aes(x=Date,y=Stage_Two_Doses,col="Stage Two"),lwd=2) +
  geom_line(aes(x=Date,y=Stage_One_Doses,col="Stage Doses"),lwd=2) +
  scale_y_continuous(labels=comma) +
labs(title="Daily Stages One/TWo Doses Covid19 Vaccine")
ggplotly(p1)